home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / macros1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  16.9 KB  |  372 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (MAPCAP MAPLAP)
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  9.    "SYSTEM"
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4
  12.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  13.    DEFVAR REMOVE-OLD-DEFINITIONS MACRO
  14.    #Y(DEFVAR
  15.       #156Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 2B 9D 5B 77
  16.             9E 5B 5B 1B 28 00 14 9F 5B 5B 58 58 14 A0 5B 5B 5B 77 AD 8E 09 1D
  17.             AD 8C 62 80 48 DB E1 E2 E3 6D 03 07 CB 14 B0 32 02 1F AC 2E 02 19
  18.             03 9E 5B 5B 5A 1A 53 DB DC DD DE 6D 03 07 CB 1A 66 E8 E9 E6 B3 7A
  19.             02 7A 02 EA E6 B4 7A 02 B3 7A 03 7A 03 60 01 1A 20 EB E6 B3 7A 02
  20.             EC E6 B2 7A 02 7A 04 60 01 1A 15 E4 62 E5 E6 E7 B2 7A 02 7A 02 7A
  21.             02 91 04 4B 00 14 91 04 5C 00 14 E6 B3 7A 02 7A 01 32 03 23 61 03
  22.             19 07
  23.            )
  24.       2. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  25.       "~S: non-symbol ~S can't be a variable"
  26.       "~S: Nur Symbole k÷nnen Variablen sein, nicht ~S"
  27.       "~S : Seuls les symboles peuvent servir de variable et non ~S" LANGUAGE
  28.       DEFVAR "~S: the constant ~S must not be redefined to be a variable"
  29.       "~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
  30.       "~S : La constante ~S ne peut pas Ωtre redΘfinie en variable." LET
  31.       PROCLAIM QUOTE SPECIAL UNLESS BOUNDP SET %SET-DOCUMENTATION 'VARIABLE
  32.   )  )
  33. #Y(#:TOP-LEVEL-FORM-5
  34.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  35.    DEFPARAMETER REMOVE-OLD-DEFINITIONS MACRO
  36.    #Y(DEFPARAMETER
  37.       #121Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 21 9D 5B 77
  38.             9E 5B 5B 77 9F 5B 5B 5B 77 AC 8E 09 16 AC 8C 62 2C DB E1 E2 E3 6D
  39.             03 07 CB 14 AF 32 02 1F AC 2E 02 19 03 DB DC DD DE 6D 03 07 CB 1A
  40.             6C E9 E6 B2 7A 02 EA E6 B2 7A 02 7A 04 60 01 1A 18 E4 62 E5 E6 E7
  41.             B1 7A 02 7A 02 7A 02 E8 E6 B1 7A 02 B0 7A 03 91 04 59 00 14 E6 B2
  42.             7A 02 7A 01 32 02 23 61 04 19 06
  43.            )
  44.       3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  45.       "~S: non-symbol ~S can't be a variable"
  46.       "~S: Nur Symbole k÷nnen Variablen sein, nicht ~S"
  47.       "~S : Seuls les symboles peuvent servir de variable et non ~S." LANGUAGE
  48.       DEFPARAMETER "~S: the constant ~S must not be redefined to be a variable"
  49.       "~S: Die Konstante ~S darf nicht zu einer Variablen umdefiniert werden."
  50.       "~S : La constante ~S ne peut pas Ωtre redΘfinie en variable." LET
  51.       PROCLAIM QUOTE SPECIAL SET %SET-DOCUMENTATION 'VARIABLE
  52.   )  )
  53. #Y(#:TOP-LEVEL-FORM-6
  54.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  55.    DEFCONSTANT REMOVE-OLD-DEFINITIONS MACRO
  56.    #Y(DEFCONSTANT
  57.       #162Y(00 00 00 00 01 00 01 00 00 08 D8 AD 71 4A D9 90 02 31 80 6D 9D 5B
  58.             77 9E 5B 5B 77 9F 5B 5B 5B 77 AC 8E 09 80 61 37 01 71 92 E1 62 E2
  59.             E3 E4 E5 B3 7A 02 E5 B3 7A 02 7A 03 7A 03 E1 AE B1 7A 02 7A 01 E6
  60.             E7 E5 B5 7A 02 7A 02 E8 E9 B5 B4 EA E5 BA 7A 02 7A 02 7A 04 EB E5
  61.             B8 7A 02 E5 BC 7A 02 7A 03 7A 03 7A 03 EC E5 B5 7A 02 B2 7A 03 91
  62.             08 22 00 14 E5 B6 7A 02 7A 01 32 02 23 7B 04 60 04 19 07 AC 2E 02
  63.             19 03 DB DC DD DE 6D 03 07 E0 AF 32 02 1F ED E5 B6 7A 02 EE E5 B6
  64.             7A 02 7A 04 60 01 1A 4F
  65.            )
  66.       3. 4. MACRO-CALL-ERROR PROGRAM-ERROR
  67.       "~S: non-symbol ~S can't be a defined constant"
  68.       "~S: Nur Symbole k÷nnen als Konstanten definiert werden, nicht ~S"
  69.       "~S : Seuls les symboles peuvent servir de constante et non ~S." LANGUAGE
  70.       DEFCONSTANT LET EVAL-WHEN (COMPILE) C-PROCLAIM-CONSTANT QUOTE IF
  71.       CONSTANTP UNLESS CONSTANT-EQL SYMBOL-VALUE CONSTANT-WARNING
  72.       %PROCLAIM-CONSTANT %SET-DOCUMENTATION 'VARIABLE
  73.   )  )
  74. #Y(#:TOP-LEVEL-FORM-7
  75.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  76.    CONSTANT-EQL REMOVE-OLD-DEFINITIONS MACRO
  77.    #Y(CONSTANT-EQL
  78.       #39Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 10 9D 5B 5B 77 9E
  79.            5B 5B 5B 77 DA AC AC 60 03 19 05 AC 2E 01 19 03
  80.           )
  81.       4. MACRO-CALL-ERROR EQL
  82.   )  )
  83. #Y(#:TOP-LEVEL-FORM-8
  84.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  85.    LOOSE-CONSTANT-EQL REMOVE-OLD-DEFINITIONS
  86.    #Y(LOOSE-CONSTANT-EQL
  87.       #28Y(00 00 00 00 02 00 00 00 00 03 AC 71 2B AC 71 2B 31 05 1E 06 AC AC 31
  88.            05 19 03 19 03
  89.   )  )    )
  90. #Y(#:TOP-LEVEL-FORM-9
  91.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  92.    CONSTANT-WARNING REMOVE-OLD-DEFINITIONS
  93.    #Y(CONSTANT-WARNING
  94.       #26Y(00 00 00 00 02 00 00 00 00 03 D8 D9 DA 6D 03 03 AC AE AF 70 52 2C 04
  95.            04 19 03
  96.           )
  97.       "~S redefines the constant ~S. Its old value was ~S."
  98.       "In ~S wird die Konstante ~S umdefiniert. Ihr alter Wert war ~S."
  99.       "~S redΘfinit la constante ~S. Son ancienne valeur Θtait ~S." LANGUAGE
  100.       WARN
  101.   )  )
  102. #Y(#:TOP-LEVEL-FORM-10 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  103.    AND MACRO
  104.    #Y(AND
  105.       #74Y(00 00 00 00 01 00 01 00 00 08 94 02 92 00 08 9B 5B 1C 07 62 AB 1A 15
  106.            02 19 04 9B 5A 19 04 93 00 D8 AB 7A 02 C4 79 83 02 16 01 82 00 9B 20
  107.            6F 16 01 AA 7F A8 00 AA 37 01 70 A1 63 AD 37 01 30 A1 77 7A 02 30 AC
  108.            DA 9C 5C 19 05
  109.           )
  110.       NOT (NIL) COND
  111.   )  )
  112. #Y(#:TOP-LEVEL-FORM-11 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  113.    OR MACRO
  114.    #Y(OR
  115.       #52Y(00 00 00 00 01 00 01 00 00 08 94 02 92 00 1E 9B 5B 1C 1D D8 AB 72 00
  116.            17 AA 37 01 70 A1 63 AD 37 01 30 A1 77 7A 02 30 AC D9 9C 5C 19 05 00
  117.            19 04 9B 5A 19 04
  118.           )
  119.       #.#'LIST COND
  120.   )  )
  121. #Y(#:TOP-LEVEL-FORM-12 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  122.    PROG1 MACRO
  123.    #Y(PROG1
  124.       #51Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1C 9D 5B 77 9E 5B
  125.            78 37 01 71 92 DA AB AE 7A 02 7A 01 AD AD 7A 01 32 02 23 61 02 19 06
  126.            AC 2E 01 19 03
  127.           )
  128.       2. MACRO-CALL-ERROR LET
  129.   )  )
  130. #Y(#:TOP-LEVEL-FORM-13 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  131.    PROG2 MACRO
  132.    #Y(PROG2
  133.       #64Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 29 9D 5B 77 9E 5B
  134.            5B 77 9F 5B 5B 78 37 01 71 92 DA 62 DB B0 DA AF B2 7A 02 7A 01 B1 B1
  135.            7A 01 32 02 23 7B 02 7A 03 60 03 19 07 AC 2E 01 19 03
  136.           )
  137.       3. MACRO-CALL-ERROR LET PROGN
  138.   )  )
  139. #Y(#:TOP-LEVEL-FORM-14 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  140.    WHEN MACRO
  141.    #Y(WHEN
  142.       #38Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 0F 9D 5B 77 9E 5B
  143.            78 DA AC DB 9E 79 60 03 19 05 AC 2E 01 19 03
  144.           )
  145.       2. MACRO-CALL-ERROR IF PROGN
  146.   )  )
  147. #Y(#:TOP-LEVEL-FORM-15 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  148.    UNLESS MACRO
  149.    #Y(UNLESS
  150.       #41Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 12 9D 5B 77 9E 5B
  151.            78 DA DB AD 7A 02 DC 9E 79 60 03 19 05 AC 2E 01 19 03
  152.           )
  153.       2. MACRO-CALL-ERROR IF NOT PROGN
  154.   )  )
  155. #Y(#:TOP-LEVEL-FORM-16
  156.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  157.    RETURN REMOVE-OLD-DEFINITIONS MACRO
  158.    #Y(RETURN
  159.       #33Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 0A 9D 5B 77 DA 62
  160.            AC 60 03 19 04 AC 2E 01 19 03
  161.           )
  162.       2. MACRO-CALL-ERROR RETURN-FROM
  163.   )  )
  164. #Y(#:TOP-LEVEL-FORM-17
  165.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) LOOP
  166.    REMOVE-OLD-DEFINITIONS MACRO
  167.    #Y(LOOP
  168.       #36Y(00 00 00 00 01 00 01 00 00 08 94 02 37 01 71 92 D8 62 D9 AD AF DA B0
  169.            7A 02 7A 01 32 02 23 7B 02 60 03 19 05
  170.           )
  171.       BLOCK TAGBODY GO
  172.   )  )
  173. #Y(#:TOP-LEVEL-FORM-18
  174.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  175.    DO/DO*-EXPAND REMOVE-OLD-DEFINITIONS
  176.    #Y(DO/DO*-EXPAND
  177.       #165Y(00 00 00 00 07 00 00 00 00 00 A1 1F 36 01 02 37 01 71 92 37 01 71
  178.             92 B3 62 B4 30 63 41 03 92 01 06 DD 9D 79 60 01 F7 A9 1F 80 42 93
  179.             0E 82 0F 9B 1F 1C 9B 5B 1F 1B 9B 5B 5B 20 1A 9B 14 83 07 16 01 1A
  180.             64 D8 D9 DA DB 6D 03 04 AF 32 01 1F 9B 1A 6B 9B 5A 1A 67 93 00 9C
  181.             5B 77 7A 02 83 07 9B 5B 5B 77 93 01 A3 61 02 FC 16 01 1A FF BA DE
  182.             62 B5 B3 71 4C AF DF B4 E0 93 15 E1 B7 7A 02 7A 03 B4 BB B9 31 4C
  183.             79 E1 B9 7A 02 B8 E2 62 E3 04 1C 5B 79 7A 03 7A 04 32 02 23 7B 03
  184.             7A 01 32 02 23 7B 02 60 03 19 0F
  185.            )
  186.       PROGRAM-ERROR "exit clause in ~S must be a list"
  187.       "Exitclause in ~S mu▀ Liste sein."
  188.       "La clause de sortie dans ~S doit Ωtre une liste." LANGUAGE DECLARE BLOCK
  189.       TAGBODY IF GO RETURN-FROM PROGN
  190.   )  )
  191. #Y(#:TOP-LEVEL-FORM-19 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 58 19 01) DO)
  192. #Y(#:TOP-LEVEL-FORM-20
  193.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DO
  194.    REMOVE-OLD-DEFINITIONS MACRO
  195.    #Y(DO
  196.       #48Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 17 9D 5B 77
  197.            9E 5B 5B 77 9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01
  198.            19 03
  199.           )
  200.       3. MACRO-CALL-ERROR DO LET PSETQ DO/DO*-EXPAND
  201.   )  )
  202. #Y(#:TOP-LEVEL-FORM-21
  203.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DO*
  204.    REMOVE-OLD-DEFINITIONS MACRO
  205.    #Y(DO*
  206.       #48Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 17 9D 5B 77
  207.            9E 5B 5B 77 9F 5B 5B 78 AC AC AC B1 DA DB DC 2C 07 05 19 06 AC 2E 01
  208.            19 03
  209.           )
  210.       3. MACRO-CALL-ERROR DO* LET* SETQ DO/DO*-EXPAND
  211.   )  )
  212. #Y(#:TOP-LEVEL-FORM-22
  213.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  214.    DOLIST REMOVE-OLD-DEFINITIONS MACRO
  215.    #Y(DOLIST
  216.       #121Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 5C 9D
  217.             5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 63
  218.             41 02 37 01 71 92 DA AB B1 DB AE 7A 02 7A 03 B2 C7 79 7A 02 DD AD
  219.             7A 02 B1 8B 62 2E DE B4 CA 79 7A 01 E0 E1 B7 7A 02 A3 7B 02 B4 60
  220.             04 14 7A 02 E0 E2 AF 7A 02 A1 7B 02 E3 B5 E4 B1 7A 02 7A 03 A2 61
  221.             05 19 0A AC 2E 01 19 03 A2 1A 60
  222.            )
  223.       2. MACRO-CALL-ERROR DO* CDR (NIL) ENDP LET (NIL) DECLARE IGNORABLE LIST
  224.       SETQ CAR
  225.   )  )
  226. #Y(#:TOP-LEVEL-FORM-23 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 58 19 01)
  227.    DOTIMES
  228.   )
  229. #Y(#:TOP-LEVEL-FORM-24
  230.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  231.    DOTIMES REMOVE-OLD-DEFINITIONS MACRO
  232.    #Y(DOTIMES
  233.       #128Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 4A 9D
  234.             5B 5A 77 9E 5B 5A 5B 77 9F 5B 5A 5B 5B 77 A0 5B 78 AA 62 B1 30 63
  235.             41 02 92 00 06 DA 9C 79 60 01 F6 AE 8B 62 29 37 01 71 92 DB B1 DC
  236.             DD B4 7A 02 7A 03 AC B2 7A 02 7A 02 DE B3 AE 7A 03 B1 7A 02 AE B0
  237.             32 02 23 61 03 19 0A AC 2E 01 19 03 DB B0 DC DD B3 7A 02 7A 03 7A
  238.             01 DE B2 B2 7A 03 B0 7A 02 AD AF 32 02 23 61 03 19 09
  239.            )
  240.       2. MACRO-CALL-ERROR DECLARE DO 0. 1+ >=
  241.   )  )
  242. #Y(#:TOP-LEVEL-FORM-25 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  243.    PSETQ MACRO
  244.    #Y(PSETQ
  245.       #77Y(00 00 00 00 01 00 01 00 00 08 94 02 01 02 AC 92 00 21 9B 5B 1C 2B 37
  246.            01 71 92 DE 93 02 AC 7A 03 83 03 AA 9D 5B 77 7A 02 83 02 16 01 9B 5B
  247.            5B F6 91 00 5F 62 83 02 DF AC 71 4C AE 31 4C 5C 5C 19 07 D8 D9 DA DB
  248.            6D 03 04 DD B3 32 02 1F
  249.           )
  250.       PROGRAM-ERROR "~S called with an odd number of arguments: ~S"
  251.       "~S mit einer ungeraden Anzahl von Argumenten aufgerufen: ~S"
  252.       "~S fut appellΘ avec un nombre impair d'arguments : ~S" LANGUAGE PSETQ
  253.       SETQ LET
  254.   )  )
  255. #Y(#:TOP-LEVEL-FORM-26 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  256.    MULTIPLE-VALUE-LIST MACRO
  257.    #Y(MULTIPLE-VALUE-LIST
  258.       #33Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 0A 9D 5B 77 DA DB
  259.            AC 60 03 19 04 AC 2E 01 19 03
  260.           )
  261.       2. MACRO-CALL-ERROR MULTIPLE-VALUE-CALL #'LIST
  262.   )  )
  263. #Y(#:TOP-LEVEL-FORM-27 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  264.    MULTIPLE-VALUE-BIND MACRO
  265.    #Y(MULTIPLE-VALUE-BIND
  266.       #80Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 14 9D 5B 77 9E 5B
  267.            5B 77 9F 5B 5B 78 37 01 71 92 62 AE 62 1A 13 AC 2E 01 19 03 86 01 00
  268.            14 DA AF 7A 02 7A 02 83 02 82 01 AB 8C 97 6E 16 02 DB AC DC B0 7A 02
  269.            7A 02 AC 31 4C 79 9F 61 02 19 08
  270.           )
  271.       3. MACRO-CALL-ERROR POP LET* MULTIPLE-VALUE-LIST
  272.   )  )
  273. #Y(#:TOP-LEVEL-FORM-28 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  274.    MULTIPLE-VALUE-SETQ MACRO
  275.    #Y(MULTIPLE-VALUE-SETQ
  276.       #86Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 10 9D 5B 77 9E 5B
  277.            5B 77 37 01 71 92 62 AD 62 1A 1B AC 2E 01 19 03 DE AD 31 4C 5C 1A 23
  278.            86 01 00 DA AB DB B0 7A 02 7A 03 83 02 82 01 AB 8C 97 6D 16 02 DC AC
  279.            DD AF 7A 02 7A 02 7A 01 91 02 57 00 14 60 03 19 07
  280.           )
  281.       3. MACRO-CALL-ERROR SETQ POP LET* MULTIPLE-VALUE-LIST PROG1
  282.   )  )
  283. #Y(#:TOP-LEVEL-FORM-29 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  284.    LOCALLY MACRO
  285.    #Y(LOCALLY #19Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 62 9D 61 02 19 04)
  286.       LET
  287.   )  )
  288. #Y(#:TOP-LEVEL-FORM-30
  289.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) CASE
  290.    REMOVE-OLD-DEFINITIONS MACRO
  291.    #Y(CASE
  292.       #137Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 43 9D 5B 77
  293.             9E 5B 78 37 01 71 92 DA AB AE 7A 02 7A 01 DB 62 AF 9B 1F 80 52 93
  294.             00 94 01 9C 1F 29 93 01 AA 02 21 3A AA 23 0A 36 AA 8D 0E 38 E8 B3
  295.             D2 14 AD 7A 02 60 03 14 9E 5B 5C 16 02 F6 83 01 82 00 1A 51 AC 2E
  296.             01 19 03 DC DD DE DF 6D 03 08 E1 32 01 1F DC E3 E4 E5 6D 03 08 E1
  297.             AD 32 02 1F 91 01 71 02 1A 51 E6 B3 D2 1A 46 16 01 AA 30 A8 16 01
  298.             79 60 03 19 06
  299.            )
  300.       2. MACRO-CALL-ERROR LET COND PROGRAM-ERROR "~S: missing key list"
  301.       "~S: Keylist fehlt." "~S : la liste d'objects-clΘ manque." LANGUAGE CASE
  302.       OTHERWISE "~S: the ~S clause must be the last one"
  303.       "~S: Die ~S-Klausel mu▀ die letzte sein."
  304.       "~S : La clause ~S doit Ωtre la derniΦre." MEMBER QUOTE EQL
  305.   )  )
  306. #Y(#:TOP-LEVEL-FORM-31
  307.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) PROG
  308.    REMOVE-OLD-DEFINITIONS MACRO
  309.    #Y(PROG
  310.       #66Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 29 9D 5B 77
  311.            9E 5B 78 AA 62 AF 30 63 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0
  312.            AE DD A2 79 7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
  313.           )
  314.       2. MACRO-CALL-ERROR DECLARE BLOCK LET TAGBODY
  315.   )  )
  316. #Y(#:TOP-LEVEL-FORM-32
  317.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  318.    PROG* REMOVE-OLD-DEFINITIONS MACRO
  319.    #Y(PROG*
  320.       #66Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 29 9D 5B 77
  321.            9E 5B 78 AA 62 AF 30 63 41 02 92 00 06 DA 9C 79 60 01 F6 DB 62 DC B0
  322.            AE DD A2 79 7A 01 32 02 23 7B 02 60 03 19 07 AC 2E 01 19 03
  323.           )
  324.       2. MACRO-CALL-ERROR DECLARE BLOCK LET* TAGBODY
  325.   )  )
  326. #Y(#:TOP-LEVEL-FORM-33 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A 19 01)
  327.    COND MACRO
  328.    #Y(COND
  329.       #37Y(00 00 00 00 01 00 01 00 00 08 94 02 37 01 71 92 AB AB 2F 00 41 02 91
  330.            00 03 9C 19 07 D9 AD 7A 01 AD 60 03 19 07
  331.           )
  332.       IFIFY LET
  333.   )  )
  334. #Y(#:TOP-LEVEL-FORM-34
  335.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) IFIFY
  336.    REMOVE-OLD-DEFINITIONS
  337.    #Y(IFIFY
  338.       #185Y(00 00 00 00 02 00 00 00 00 03 91 02 13 01 02 3F 02 19 03 D8 D9 DA
  339.             DB 6D 03 04 9F 1A 14 92 02 6D 9D 1F 70 9D 5A 20 80 58 D8 DD DE DF
  340.             6D 03 04 9F 5A 14 32 01 1F E0 A0 5A 5B 5C 1A 3D 9F 5A 5B 5B 1B 73
  341.             9F 5A 5B 5A 1A 31 9F 5A 77 8B 5F 6E 9C 1A 80 51 E0 A2 5A 5B 5C 1A
  342.             80 45 9F 5A 77 8B 62 68 E1 A0 5A 77 A1 5A 5B 5B 1B 68 A1 5A 5B 5A
  343.             1A 2F 9F 5A 77 8C 5F 07 9F 5A 5A 14 00 1A 37 9C 1A 23 94 02 AC 27
  344.             FF 97 41 02 9F 5A 5B 1B 4D 9F 5A 77 8B 62 5D 9F 5A 5A 20 0F E1 A0
  345.             5A 77 A1 5A 5A 14 AE 60 04 14 9C 1A 0D E1 E2 AF A2 5A 77 7A 03 AF
  346.             AE 7A 04 02 14 3F 02 19 05
  347.            )
  348.       PROGRAM-ERROR "Not a list of COND clauses: ~S"
  349.       "Das ist keine Liste von COND-Klauseln: ~S"
  350.       "Ceci n'est pas une liste de clauses COND : ~S" LANGUAGE
  351.       "The atom ~S must not be used as a COND clause."
  352.       "Das ist ein Atom und daher nicht als COND-Klausel verwendbar: ~S"
  353.       "Ceci est une atome et n'est donc pas utilisable comme clause COND : ~S"
  354.       PROGN IF SETQ
  355.   )  )
  356. #Y(#:TOP-LEVEL-FORM-35
  357.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAPCAP
  358.    REMOVE-OLD-DEFINITIONS
  359.    #Y(MAPCAP
  360.       #64Y(00 00 00 00 01 00 00 00 01 17 62 AD 62 AE 1A 22 16 01 AA 30 A8 16 01
  361.            76 00 71 4B AB 81 02 24 00 1A 69 93 00 93 00 82 01 AC AC 30 AD 69 00
  362.            83 01 82 00 9B 1F 5B 9B 5A 20 69 16 03 AA 30 A8 19 04
  363.   )  )    )
  364. #Y(#:TOP-LEVEL-FORM-36
  365.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAPLAP
  366.    REMOVE-OLD-DEFINITIONS
  367.    #Y(MAPLAP
  368.       #60Y(00 00 00 00 01 00 00 00 01 17 62 AD 62 AE 1A 1E 16 01 AA 30 A8 16 01
  369.            76 00 71 4B AB 81 02 24 00 1A 69 93 00 AB 9D 5A 78 30 AD 83 01 82 00
  370.            9B 1F 5F 9B 5A 20 6D 16 03 AA 30 A8 19 04
  371.   )  )    )
  372.